home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / comp0_89.lha / Feel / Boot / Compiler / bench.em < prev    next >
Lisp/Scheme  |  1993-02-02  |  605b  |  40 lines
  1. ;; Eulisp Module
  2. ;; Author: pab
  3. ;; File: bench.em
  4. ;; Date: Thu Jul  2 19:03:18 1992
  5. ;;
  6. ;; Project:
  7. ;; Description: 
  8. ;;
  9.  
  10. (defmodule bench
  11.   (standard0
  12.    list-fns
  13.          
  14.    )
  15.   ()
  16.  
  17.   (defun i (compile-inline 0)ff
  18.  
  19.   (defun repeat (f n)
  20.     (if (= n 0) nil
  21.       (progn (f) (repeat f (- n 1)))))
  22.  
  23.   (defun time (f)
  24.     (let ((xx (cpu-time)))
  25.       (f)
  26.       (- (cpu-time) xx)))
  27.  
  28.   (defstruct a ()  ((a accessor a-a initarg a)) constructor make-a)
  29.  
  30.   (defun base (n)
  31.     (time (lambda () (repeat i n))))
  32.   
  33.   (defun other (n)
  34.     (time (lambda () (repeat (lambda () (exp 1.1)) n))))
  35.  
  36.  
  37.   ;;end module
  38.   )
  39.  
  40.